﻿Imports FuncClasses
Imports System.Threading.Tasks

Public Class CustomerPreview
    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub

    'Mail
    Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
        Process.Start("mailto:" + DirectCast(DataContext, Customer).Contact.Mail1)
    End Sub

    'Facebook
    Private Sub Button_Click_2(sender As Object, e As RoutedEventArgs)
        Process.Start(DirectCast(DataContext, Customer).Contact.Facebook)
    End Sub
End Class
